home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmiSoft / Misc / emu / Wzonka-Lad.lha / Wzonka-Lad / src / test / timer_wait.s < prev   
Text File  |  1999-01-06  |  858b  |  58 lines
  1.  
  2.         incdir    "binworld:includes/"
  3.  
  4.         include    "exec/memory.i"
  5.         include    "dos/dos.i"
  6.         include    "exec_lib.i"
  7.         include    "dos_lib.i"
  8.         
  9.         include    "devices/inputevent.i"
  10.         include    "devices/timer.i"
  11.         include    "exec/io.i"
  12.  
  13.  
  14.         section    alku,code
  15.  
  16.         move.l    execbase,exec_base
  17.  
  18.         move.l    exec_base,a6
  19.         lea    dos_name,a1
  20.         moveq.l    #39,d0
  21.         jsr    OpenLibrary(a6)
  22.         move.l    d0,dos_base
  23.         beq.w    quit
  24.  
  25.         move.l    d0,a6
  26.         move.l    #nil_name,d1
  27.         move.l    #MODE_READWRITE,d2
  28.         jsr    Open(a6)
  29.         move.l    d0,output_file
  30.  
  31.         move.l    d0,d1
  32.         move.l    #10000000,d2
  33.         jsr    WaitForChar(a6)
  34.  
  35. quit:        move.l    output_file,d1
  36.         jsr    Close(a6)
  37.  
  38.         move.l    dos_base,d0
  39.         beq.s    no_dos_base
  40.         move.l    d0,a1
  41.         jsr    CloseLibrary(a6)
  42.  
  43. no_dos_base:    moveq.l    #0,d0
  44.         rts
  45.  
  46.  
  47.         section    loppu,data
  48.  
  49. output_file:    dc.l    0
  50. exec_base:    dc.l    0
  51. dos_base:    dc.l    0
  52. dos_name:    dc.b    "dos.library",0
  53.         even
  54. nil_name:    dc.b    "q:dhdh",0
  55.         even
  56.  
  57.         END
  58.